home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1984 Half 1
/
rerun-1984-01-06-side-a.d64
/
bomber mar p106
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
4KB
|
139 lines
1 rem mad l bomber
3 gosub 2005
4 v=53248:pokev+21,0:poke2042,13:bx=80:by=30
5 sv=54296:sw=54276:sa=54277:sh=54273:sl=54272:jump=0:pokev+41,7
6 print"speed please":pokev+4,bx:pokev+5,by
7 print:print"superfast-1":print"fast-2":print"medium-3":print"slow-4"
8 input"or super slow-5";xp
9 ifxp=1thensp=0
10 ifxp=2thensp=75
11 ifxp=3thensp=150
12 ifxp=4thensp=300
13 ifxp=5thensp=600
14 ifxp>5thenprintchr$(147):goto6
15 ifxp<1thenprintchr$(147):goto6
16 mc=0:printchr$(147)
20 ifmc>20then4010
21 ifmc<>10goto30
22 ifmc=10thenforx=1to4:poke53281,1:poke53280,1:poke53281,0:poke53280,0:nextx
23 printchr$(147):forx=1to7:print:nextx
24 printchr$(18)" very good - you're half way through":printchr$(19):jump=0
25 gosub2031
30 tt=1 :x=0
31 forlp=0to2
32 pokesv,15:pokesw,33:pokesa,0:pokesh,45:pokesl,0
33 printchr$(19)" code red - mad l bomber approaching ":forlo=1to100:nextlo
34 printchr$(19)chr$(18)" code red - mad l bomber approaching "
35 pokesv,0:pokesw,0:pokesa,0:pokesh,0:pokesl,0:pokev+21,4
36 forlo=1to40:nextlo:next lp
37 ifk$=chr$(x)then40
40 n=int(rnd(1)*38)+1
41 ifjump>0thengoto82
42 jump=1
50 poke53281,0:poke53280,0:printchr$(5);chr$(19)
70 for x=0to39:poke1944+x,120:poke56216+x,7:nextx
75 forx=0to3:ld=int(rnd(1)*30)+1:poke1904+ld,102:poke56176+ld,13
77 poke1864+ld,92:poke56136+ld,13:nextx
80 forx=0to5:ld=int(rnd(1)*35)+1:poke1904+ld,102:poke56176+ld,1:nextx
82 forx=0to39:poke1024+x,42:poke55296+x,12:nextx
94 cr=cr-40:ifcr<-800thencr=-800
95 forx=0to24:ld=int(rnd(1)*35)+1
96 poke1864+ld+cr,42:poke56136+ld+cr,1:next x
97 forx=0to4:ld=int(rnd(1)*35)+1
98 poke1144+ld,42:poke55416+ld,1:next x
100 le=int(rnd(64)*90)+1
110 ifle<65orle>90goto100
120 getk$:ifk$=""then302
130 ifk$=chr$(le)then155
140 goto302
155 pokesv,15:pokesw,133:pokesa,0:pokesh,0:pokesl,130
156 for fry=1to2
157 bx=bx+4:by=by-8:pokev+4,bx:pokev+5,by
170 print chr$(13)chr$(145)chr$(145)tab(n);:print"/"
172 print chr$(13)chr$(145)chr$(145)tab(n);:printchr$(le):bx=bx+4:by=by-8
173 print chr$(13)chr$(145)chr$(145)tab(n);:print"-":pokev+4,bx:pokev+5,by
174 print chr$(13)chr$(145)chr$(145)tab(n);:print"*":bx=bx+4:by=by-8
175 print chr$(13)chr$(145)chr$(145)tab(n);:printchr$(28)".":pokev+4,bx
176 print chr$(13)chr$(145)chr$(145)tab(n);:printchr$(le):pokev+5,by
178 print chr$(13)chr$(145)chr$(145)tab(n);:print"+":printchr$(5)
179 nextfry
180 pokesv,15:pokesw,129:pokesa,15:pokesh,40:pokesl,200
182 pokev+21,0:forpl=1to100:nextpl
185 pokesv,0:pokesw,0:pokesa,0:pokesh,0:pokesl,0
187 pokesv,15:pokesw,129:pokesa,15:pokesh,40:pokesl,200
188 pokesv,9:forpl=1to20:nextpl:pokesv,6:forpl=1to20:nextpl:pokesv,0
189 pokesw,0:pokesa,0:pokesh,0:pokesl,0
190 pokesv,15:pokesw,129:pokesa,15:pokesh,40:pokesl,200
191 forpl=1to350:nextpl
195 pokev+21,0:pokev+5,24:pokev+4,60
200 pokesv,0:pokesw,0:pokesa,0:pokesh,0:pokesl,0
250 mc=mc+1:printchr$(19):bx=60:by=60:pokev+21,0:goto20
302 pokesv,15:pokesw,13:pokesa,240:pokesh,44:pokesl,0
304 pokesv,0:pokesw,0:pokesa,0:pokesh,0:pokesl,0
306 tw=int(rnd(1)*2)
308 iftw=0thenbd=1
309 iftw=1thenbd=-1
310 n=n+bd
311 ifn<3thenn=3
312 ifn>37thenn=37
325 printchr$(13)chr$(145)tab(n);:printchr$(le)
350 forl=1tosp:next
360 tt=tt+1:iftt=12then800
370 printchr$(145)tab(n)chr$(28)chr$(46):printchr$(5)
372 bx=bx+8:by=by+8:pokev+4,bx:pokev+5,by
380 goto120
800 for bd=1to15:poke53281,1:poke53280,1:poke53281,0:poke53280,0:next
802 pokev+21,0:pokev+4,24:pokev+5,60
805 printchr$(147):forx=1to5:print:next:printtab(15)"oh dear!!!":gosub1050
808 printchr$(147):forx=1to5:print:next
810 printtab(8)"you'll have to be faster":print
811 printtab(9)"to save the city from"
812 print:printtab(7)"**** the mad l bomber ****"
814 print:printtab(7)"you destroyed ";mc;" l bombs !":printchr$(19)
815 forx=1to1000:nextx
820 gosub 2031
830 printchr$(147):forx=1to5:print:next:printtab(7)"want to try again (y or n)"
840 geta$:ifa$=""then840
850 ifa$="y"thenprintchr$(19):gosub2031:clr:goto4
852 ifa$="n"then860
854 ifa$<>"n"then830
860 end
1050 forxx=35to0step-.2:pokesv,xx:pokesw,129:pokesa,15:pokesh,40:pokesl,200:next
1052 forxx=35to0step-.2:pokesv,xx:pokesw,129:pokesa,15:pokesh,40:pokesl,200:next
1054 pokesv,0:pokesw,0:pokesa,0:pokesh,0:pokesl,0:return
2005 sv=54296:sw=54276:sa=54277:sh=54273:sl=54272:v=53248
2010 printchr$(147):poke53281,0:poke53280,0:printchr$(5)
2020 forpt=1to6:print:next:printtab(13)"l bomb busters "
2022 print:printtab(13)"by gary fields"
2023 print:printtab(18)"1983"
2024 forx=1to400:nextx
2025 print:print:print"your mission is to save the city from"
2026 printtab(11)chr$(18)"the mad l bomber!!"
2027 print"destory the falling letter bombs by"
2028 print"pressing the same key on the keyboard":forx=1to1000:nextx
2029 printchr$(19):forpr=0to63:readpq:poke832+pr,pq:nextpr
2031 fordl=0to500:nextdl
2035 forl=0to24:pokesl+l,0:next
2040 pokesl+14,5:pokesl+18,16:pokesl+3,1:pokesl+24,143:pokesl+6,240:pokesl+4,65
2050 fr=5389
2060 forft=1to50:fq=fr+peek(sl+27)*3.5
2070 hf=int(fq/256):lf=fq-hf*256:pokesl+0,lf:pokesl+1,hf
2075 printtab(10)"l bombs are falling":next:pokesl+24,0
2080 printchr$(147):return
4010 printchr$(147):forx=1to5:print:next:printtab(10)"very good fast fingers"
4012 printtab(16)"-you win-":print:print
4014 printtab(7)"you burst all ";mc;" l bombs"
4015 print:print"the happy people of the city thank you !"
4040 forl=0to24:pokesl+l,0:next:pokesl+0,240:pokesl+1,33:pokesl+5,8
4050 pokesl+22,104:pokesl+23,1:pokesl+24,79:forn=1to19:pokesl+4,129
4060 forxt=1to100:next:pokesl+4,128:forxt=1to30:next:next
4065 pokesl+22,0:pokesl+33,0:pokesl+24,0:pokesl+4,0
4067 pokesl+1,0:pokesl+0,0:pokesl+1,0:pokesl+5,0:pokesl+22,0:pokesl+23,0
4068 pokesl+33,0
4069 forx=0to999:nextx
4070 goto830
6000 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0
6001 data0,0,0,0,0,0,12,0,128,30,64,199,152,32,224, 218
6002 data32,176,108,38,184,127,33,143,255,248,255,254,29,254,0, 28
6003 data7,255,157,3,255,248,1,255,193,0,0,6,0,0,0, 0